﻿Public Class frmThongKeDocGiaNoTienPhat


    Sub LoadDS()
        CrystalReport_ThongKeDocGiaNo1.SetParameterValue("@Nam", NumericUpDown_Nam.Value)
        CrystalReport_ThongKeDocGiaNo1.SetParameterValue("@Thang", NumericUpDown_Thang.Value)
        CrystalReportViewer_ThongKeDocGiaNoTien.ReportSource = CrystalReport_ThongKeDocGiaNo1
    End Sub


    Private Sub frmThongKeDocGiaNoTienPhat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NumericUpDown_Nam.Value = DateTime.Now.Year
        NumericUpDown_Thang.Value = DateTime.Now.Month
        LoadDS()
    End Sub

    Private Sub NumericUpDown_Thang_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown_Thang.ValueChanged
        LoadDS()
    End Sub

    Private Sub NumericUpDown_Nam_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown_Nam.ValueChanged
        LoadDS()
    End Sub
End Class